home *** CD-ROM | disk | FTP | other *** search
/ HyperLib 1997 Winter - Disc 1 / HYPERLIB-1997-Winter-CD1.ISO.7z / HYPERLIB-1997-Winter-CD1.ISO / オンラインウェア / COM / Handy Mail 1.0b4 folder.sit / Handy Mail 1.0b4 folder / Handy Mail v1.0b2 Installer / Handy Mail v1.0b2 ƒ / Resources / New Mail / background_2669.xml < prev    next >
Extensible Markup Language  |  1995-12-22  |  11KB  |  331 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
  3. <background>
  4.     <id>2669</id>
  5.     <filler1>0</filler1>
  6.     <bitmap>BMAP_3708.pbm</bitmap>
  7.     <cantDelete> <false /> </cantDelete>
  8.     <showPict> <true /> </showPict>
  9.     <dontSearch> <false /> </dontSearch>
  10.     <link rel="stylesheet" type="text/css" href="stylesheet_3121.css" />
  11.     <part>
  12.         <id>38</id>
  13.         <type>field</type>
  14.         <visible> <true /> </visible>
  15.         <dontWrap> <true /> </dontWrap>
  16.         <dontSearch> <false /> </dontSearch>
  17.         <sharedText> <false /> </sharedText>
  18.         <fixedLineHeight> <true /> </fixedLineHeight>
  19.         <autoTab> <false /> </autoTab>
  20.         <lockText> <false /> </lockText>
  21.         <rect>
  22.             <left>66</left>
  23.             <top>6</top>
  24.             <right>421</right>
  25.             <bottom>21</bottom>
  26.         </rect>
  27.         <style>opaque</style>
  28.         <autoSelect> <false /> </autoSelect>
  29.         <showLines> <true /> </showLines>
  30.         <wideMargins> <false /> </wideMargins>
  31.         <multipleLines> <false /> </multipleLines>
  32.         <reservedFamily> 0 </reservedFamily>
  33.         <selectedLines>
  34.             <integer>1</integer>
  35.         </selectedLines>
  36.         <textAlign>left</textAlign>
  37.         <font>Geneva</font>
  38.         <textSize>9</textSize>
  39.         <textStyle>plain</textStyle>
  40.         <textHeight>12</textHeight>
  41.         <name>sendTo</name>
  42.         <script></script>
  43.     </part>
  44.     <part>
  45.         <id>7</id>
  46.         <type>button</type>
  47.         <visible> <true /> </visible>
  48.         <reserved5> 0 </reserved5>
  49.         <reserved4> 0 </reserved4>
  50.         <reserved3> 0 </reserved3>
  51.         <reserved2> 0 </reserved2>
  52.         <reserved1> 0 </reserved1>
  53.         <enabled> <true /> </enabled>
  54.         <rect>
  55.             <left>365</left>
  56.             <top>230</top>
  57.             <right>442</right>
  58.             <bottom>258</bottom>
  59.         </rect>
  60.         <style>default</style>
  61.         <showName> <true /> </showName>
  62.         <highlight> <false /> </highlight>
  63.         <autoHighlight> <true /> </autoHighlight>
  64.         <sharedHighlight> <true /> </sharedHighlight>
  65.         <family>0</family>
  66.         <titleWidth>0</titleWidth>
  67.         <icon>0</icon>
  68.         <textAlign>center</textAlign>
  69.         <font>Chicago</font>
  70.         <textSize>12</textSize>
  71.         <textStyle>plain</textStyle>
  72.         <name>Send</name>
  73.         <script>on mouseUpglobal mailGoodput true into mailGoodclose window (short name of this stack)end mouseUpon sendTheMailglobal gFCHeaderShare,gFCBodyShare,gRecipientListput line 1 of bg fld "sendTo" into gRecipientListif gRecipientList = "" then err "No recipient specified."if "," is in gRecipientList then put replaceChar(gRecipientList,","," ") into gRecipientListput "Subject:" && bg fld "subject" & return into gFCHeaderShareput "To:" && gRecipientList & return after gFCHeaderShareput "Reply-To:" && bg fld "Reply" & return after gFCHeaderShareput "From:" && bg fld "Reply" & return after gFCHeaderShareput bg fld "body" into gFCBodyShareput hilite of bg btn id 43 into viaInternetif viaInternet = true thenserverTask "sendMail_Internet"elseserverTask "sendMail_FC"end ifif freeSize of this stack > 5000 then doMenu "compact stack"end sendTheMailon err theErrbeepanswer theErr with "OK"set hilite of bg btn id 7 to falseexit to hyperCardend err</script>
  74.     </part>
  75.     <part>
  76.         <id>39</id>
  77.         <type>field</type>
  78.         <visible> <true /> </visible>
  79.         <dontWrap> <true /> </dontWrap>
  80.         <dontSearch> <false /> </dontSearch>
  81.         <sharedText> <false /> </sharedText>
  82.         <fixedLineHeight> <true /> </fixedLineHeight>
  83.         <autoTab> <false /> </autoTab>
  84.         <lockText> <false /> </lockText>
  85.         <rect>
  86.             <left>66</left>
  87.             <top>23</top>
  88.             <right>421</right>
  89.             <bottom>38</bottom>
  90.         </rect>
  91.         <style>opaque</style>
  92.         <autoSelect> <false /> </autoSelect>
  93.         <showLines> <true /> </showLines>
  94.         <wideMargins> <false /> </wideMargins>
  95.         <multipleLines> <false /> </multipleLines>
  96.         <reservedFamily> 0 </reservedFamily>
  97.         <selectedLines>
  98.             <integer>1</integer>
  99.         </selectedLines>
  100.         <textAlign>left</textAlign>
  101.         <font>Geneva</font>
  102.         <textSize>9</textSize>
  103.         <textStyle>plain</textStyle>
  104.         <textHeight>12</textHeight>
  105.         <name>reply</name>
  106.         <script>on closeFieldcheckItend closeFieldon exitFieldcheckItend exitFieldon checkItif bg fld "reply" = "" thenif hilite of bg btn id 43 thenput 43 into theBtnelseput 44 into theBtnend ifsend mouseUp to bg btn id theBtnend ifend checkIt</script>
  107.     </part>
  108.     <part>
  109.         <id>25</id>
  110.         <type>button</type>
  111.         <visible> <true /> </visible>
  112.         <reserved5> 0 </reserved5>
  113.         <reserved4> 0 </reserved4>
  114.         <reserved3> 0 </reserved3>
  115.         <reserved2> 0 </reserved2>
  116.         <reserved1> 0 </reserved1>
  117.         <enabled> <true /> </enabled>
  118.         <rect>
  119.             <left>279</left>
  120.             <top>234</top>
  121.             <right>354</right>
  122.             <bottom>254</bottom>
  123.         </rect>
  124.         <style>standard</style>
  125.         <showName> <true /> </showName>
  126.         <highlight> <false /> </highlight>
  127.         <autoHighlight> <true /> </autoHighlight>
  128.         <sharedHighlight> <true /> </sharedHighlight>
  129.         <family>0</family>
  130.         <titleWidth>0</titleWidth>
  131.         <icon>0</icon>
  132.         <textAlign>center</textAlign>
  133.         <font>Chicago</font>
  134.         <textSize>12</textSize>
  135.         <textStyle>plain</textStyle>
  136.         <name>Cancel</name>
  137.         <script>on mouseUpglobal mailGoodput false into mailGoodclose window (short name of this stack)end mouseUp</script>
  138.     </part>
  139.     <part>
  140.         <id>34</id>
  141.         <type>field</type>
  142.         <visible> <true /> </visible>
  143.         <dontWrap> <true /> </dontWrap>
  144.         <dontSearch> <false /> </dontSearch>
  145.         <sharedText> <false /> </sharedText>
  146.         <fixedLineHeight> <true /> </fixedLineHeight>
  147.         <autoTab> <false /> </autoTab>
  148.         <lockText> <false /> </lockText>
  149.         <rect>
  150.             <left>66</left>
  151.             <top>40</top>
  152.             <right>421</right>
  153.             <bottom>55</bottom>
  154.         </rect>
  155.         <style>opaque</style>
  156.         <autoSelect> <false /> </autoSelect>
  157.         <showLines> <true /> </showLines>
  158.         <wideMargins> <false /> </wideMargins>
  159.         <multipleLines> <false /> </multipleLines>
  160.         <reservedFamily> 0 </reservedFamily>
  161.         <selectedLines>
  162.             <integer>1</integer>
  163.         </selectedLines>
  164.         <textAlign>left</textAlign>
  165.         <font>Geneva</font>
  166.         <textSize>9</textSize>
  167.         <textStyle>plain</textStyle>
  168.         <textHeight>12</textHeight>
  169.         <name>subject</name>
  170.         <script></script>
  171.     </part>
  172.     <part>
  173.         <id>27</id>
  174.         <type>field</type>
  175.         <visible> <true /> </visible>
  176.         <dontWrap> <true /> </dontWrap>
  177.         <dontSearch> <false /> </dontSearch>
  178.         <sharedText> <false /> </sharedText>
  179.         <fixedLineHeight> <false /> </fixedLineHeight>
  180.         <autoTab> <false /> </autoTab>
  181.         <lockText> <false /> </lockText>
  182.         <rect>
  183.             <left>10</left>
  184.             <top>75</top>
  185.             <right>438</right>
  186.             <bottom>226</bottom>
  187.         </rect>
  188.         <style>scrolling</style>
  189.         <autoSelect> <true /> </autoSelect>
  190.         <showLines> <false /> </showLines>
  191.         <wideMargins> <false /> </wideMargins>
  192.         <multipleLines> <false /> </multipleLines>
  193.         <reservedFamily> 0 </reservedFamily>
  194.         <titleWidth>0</titleWidth>
  195.         <icon>0</icon>
  196.         <textAlign>left</textAlign>
  197.         <font>Monaco</font>
  198.         <textSize>9</textSize>
  199.         <textStyle>plain</textStyle>
  200.         <textHeight>12</textHeight>
  201.         <name>body</name>
  202.         <script>on mouseUpput selectedText(me) into temp-- delete word 1 of tempput temp into bg fld "editHeader"end mouseUp</script>
  203.     </part>
  204.     <part>
  205.         <id>41</id>
  206.         <type>button</type>
  207.         <visible> <true /> </visible>
  208.         <reserved5> 0 </reserved5>
  209.         <reserved4> 0 </reserved4>
  210.         <reserved3> 0 </reserved3>
  211.         <reserved2> 0 </reserved2>
  212.         <reserved1> 0 </reserved1>
  213.         <enabled> <true /> </enabled>
  214.         <rect>
  215.             <left>6</left>
  216.             <top>25</top>
  217.             <right>56</right>
  218.             <bottom>37</bottom>
  219.         </rect>
  220.         <style>transparent</style>
  221.         <showName> <false /> </showName>
  222.         <highlight> <false /> </highlight>
  223.         <autoHighlight> <true /> </autoHighlight>
  224.         <sharedHighlight> <true /> </sharedHighlight>
  225.         <family>0</family>
  226.         <titleWidth>0</titleWidth>
  227.         <icon>0</icon>
  228.         <textAlign>center</textAlign>
  229.         <font>Chicago</font>
  230.         <textSize>12</textSize>
  231.         <textStyle>plain</textStyle>
  232.         <name></name>
  233.         <script>on mouseDownput bg fld "reply" into tput replaceAliasStr(bg fld "reply") into bg fld "reply"wait until the mouse is upput t into bg fld "reply"end mouseDown</script>
  234.     </part>
  235.     <part>
  236.         <id>42</id>
  237.         <type>button</type>
  238.         <visible> <true /> </visible>
  239.         <reserved5> 0 </reserved5>
  240.         <reserved4> 0 </reserved4>
  241.         <reserved3> 0 </reserved3>
  242.         <reserved2> 0 </reserved2>
  243.         <reserved1> 0 </reserved1>
  244.         <enabled> <true /> </enabled>
  245.         <rect>
  246.             <left>431</left>
  247.             <top>3</top>
  248.             <right>443</right>
  249.             <bottom>19</bottom>
  250.         </rect>
  251.         <style>transparent</style>
  252.         <showName> <false /> </showName>
  253.         <highlight> <false /> </highlight>
  254.         <autoHighlight> <false /> </autoHighlight>
  255.         <sharedHighlight> <true /> </sharedHighlight>
  256.         <family>0</family>
  257.         <titleWidth>0</titleWidth>
  258.         <icon>22604</icon>
  259.         <textAlign>center</textAlign>
  260.         <font>Chicago</font>
  261.         <textSize>12</textSize>
  262.         <textStyle>plain</textStyle>
  263.         <name></name>
  264.         <script>on mouseUpcallHelp "New Mail"end mouseUp</script>
  265.     </part>
  266.     <part>
  267.         <id>43</id>
  268.         <type>button</type>
  269.         <visible> <true /> </visible>
  270.         <reserved5> 0 </reserved5>
  271.         <reserved4> 0 </reserved4>
  272.         <reserved3> 0 </reserved3>
  273.         <reserved2> 0 </reserved2>
  274.         <reserved1> 0 </reserved1>
  275.         <enabled> <true /> </enabled>
  276.         <rect>
  277.             <left>66</left>
  278.             <top>60</top>
  279.             <right>131</right>
  280.             <bottom>72</bottom>
  281.         </rect>
  282.         <style>radiobutton</style>
  283.         <showName> <true /> </showName>
  284.         <highlight> <true /> </highlight>
  285.         <autoHighlight> <true /> </autoHighlight>
  286.         <sharedHighlight> <true /> </sharedHighlight>
  287.         <family>1</family>
  288.         <titleWidth>0</titleWidth>
  289.         <icon>0</icon>
  290.         <textAlign>center</textAlign>
  291.         <font>Geneva</font>
  292.         <textSize>9</textSize>
  293.         <textStyle>plain</textStyle>
  294.         <name>Internet</name>
  295.         <script>on mouseUpput "[Admin]@[Domain]" into bg fld "reply"end mouseUp</script>
  296.     </part>
  297.     <part>
  298.         <id>44</id>
  299.         <type>button</type>
  300.         <visible> <true /> </visible>
  301.         <reserved5> 0 </reserved5>
  302.         <reserved4> 0 </reserved4>
  303.         <reserved3> 0 </reserved3>
  304.         <reserved2> 0 </reserved2>
  305.         <reserved1> 0 </reserved1>
  306.         <enabled> <true /> </enabled>
  307.         <rect>
  308.             <left>135</left>
  309.             <top>60</top>
  310.             <right>206</right>
  311.             <bottom>72</bottom>
  312.         </rect>
  313.         <style>radiobutton</style>
  314.         <showName> <true /> </showName>
  315.         <highlight> <false /> </highlight>
  316.         <autoHighlight> <true /> </autoHighlight>
  317.         <sharedHighlight> <true /> </sharedHighlight>
  318.         <family>1</family>
  319.         <titleWidth>0</titleWidth>
  320.         <icon>0</icon>
  321.         <textAlign>center</textAlign>
  322.         <font>Geneva</font>
  323.         <textSize>9</textSize>
  324.         <textStyle>plain</textStyle>
  325.         <name>FirstClass</name>
  326.         <script>on mouseUpglobal gFCAdminNameput gFCAdminName into bg fld "reply"end mouseUp</script>
  327.     </part>
  328.     <name></name>
  329.     <script>on tidy-- global gTELine-- put bg fld id 15 into line gTELine of bg fld id 14put bg fld "subList" into temprepeat with k = 1 to number of lines of tempif line k of temp = "" thendelete line k of tempend ifend repeatput temp into bg fld "subList"end tidyon updateSubList theText,theWordglobal gTELineif theWord = 4 thenput (word 1 to 3 of line gTELine of bg fld "subList") && theText ﾂｬinto line gTELine of bg fld "subList"elseput theText into word theWord of line gTELine of bg fld "subList"end ifend updateSubListfunction omitSpace theTextrepeat--if offset(" ",theText) 竕  0 thenget offset(" ",theText)if it 竕  0 thendelete char offset(" ",theText) of theTextelseexit repeatend ifend repeatreturn theTextend omitSpace</script>
  330. </background>
  331.